/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / bltzdemo.lha / examples2 / qblits.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 61 66 74 65 72 20 43 | 44 69 6e 67 20 74 6f 20 |;after C|Ding to |
|00000010| 74 68 69 73 20 64 69 72 | 65 63 74 6f 72 79 20 74 |this dir|ectory t|
|00000020| 75 72 6e 20 6f 66 66 20 | 74 68 65 20 27 52 75 6e |urn off |the 'Run|
|00000030| 74 69 6d 65 20 45 72 72 | 6f 72 73 20 44 65 62 75 |time Err|ors Debu|
|00000040| 67 67 65 72 27 00 3b 00 | 3b 41 20 6c 69 74 74 6c |gger'.;.|;A littl|
|00000050| 65 20 64 65 6d 6f 20 6f | 66 20 6d 6f 76 69 6e 67 |e demo o|f moving|
|00000060| 20 74 68 69 6e 67 73 20 | 75 73 69 6e 67 20 74 68 | things |using th|
|00000070| 65 20 51 42 6c 69 74 20 | 63 6f 6d 6d 61 6e 64 2e |e QBlit |command.|
|00000080| 2e 2e 00 00 3b 63 72 65 | 61 74 65 20 61 20 27 62 |....;cre|ate a 'b|
|00000090| 61 6c 6c 27 20 74 79 70 | 65 20 76 61 72 69 61 62 |all' typ|e variab|
|000000a0| 6c 65 00 3b 00 80 01 2e | 62 61 6c 6c 00 78 2e 71 |le.;....|ball.x.q|
|000000b0| 00 79 00 78 73 00 79 73 | 00 80 02 20 80 01 00 00 |.y.xs.ys|... ....|
|000000c0| 3b 64 69 6d 65 6e 73 69 | 6f 6e 20 61 20 27 6c 69 |;dimensi|on a 'li|
|000000d0| 73 74 27 20 6f 66 20 27 | 62 61 6c 6c 73 27 00 3b |st' of '|balls'.;|
|000000e0| 00 3b 74 72 79 20 69 6e | 63 72 65 61 73 69 6e 67 |.;try in|creasing|
|000000f0| 20 74 68 65 20 27 32 27 | 20 68 65 72 65 20 74 6f | the '2'| here to|
|00000100| 20 27 37 27 2e 20 4e 6f | 74 69 63 65 20 68 6f 77 | '7'. No|tice how|
|00000110| 20 74 68 69 6e 67 73 00 | 3b 73 74 61 72 74 20 74 | things.|;start t|
|00000120| 6f 20 66 6c 69 63 6b 65 | 72 3f 20 54 6f 20 6f 76 |o flicke|r? To ov|
|00000130| 65 72 63 6f 6d 65 20 74 | 68 69 73 2c 20 79 6f 75 |ercome t|his, you|
|00000140| 27 6c 6c 20 6e 65 65 64 | 20 74 6f 20 75 73 65 00 |'ll need| to use.|
|00000150| 3b 64 6f 75 62 6c 65 20 | 62 75 66 66 65 72 69 6e |;double |bufferin|
|00000160| 67 21 20 53 65 65 20 74 | 68 65 20 27 64 6f 75 62 |g! See t|he 'doub|
|00000170| 6c 65 62 75 66 66 65 72 | 27 20 64 65 6d 6f 21 00 |lebuffer|' demo!.|
|00000180| 3b 00 80 04 20 80 b3 20 | 62 61 6c 6c 73 2e 62 61 |;... .. |balls.ba|
|00000190| 6c 6c 28 32 29 00 00 3b | 6c 6f 61 64 20 69 6e 20 |ll(2)..;|load in |
|000001a0| 61 20 73 68 61 70 65 20 | 61 6e 64 20 69 74 27 73 |a shape |and it's|
|000001b0| 20 70 61 6c 65 74 74 65 | 00 3b 00 cd 01 20 30 2c | palette|.;... 0,|
|000001c0| 22 64 61 74 61 2f 62 61 | 6c 6c 22 2c 30 00 00 3b |"data/ba|ll",0..;|
|000001d0| 6b 65 65 70 20 61 64 64 | 69 6e 67 20 69 74 65 6d |keep add|ing item|
|000001e0| 73 20 74 6f 20 6c 69 73 | 74 20 75 6e 74 69 6c 20 |s to lis|t until |
|000001f0| 6c 69 73 74 20 66 75 6c | 6c 00 3b 00 80 0c 20 c0 |list ful|l.;... .|
|00000200| 08 28 62 61 6c 6c 73 28 | 29 29 00 20 20 62 61 6c |.(balls(|)).  bal|
|00000210| 6c 73 28 29 5c 78 3d bc | 07 28 32 38 30 29 2b 31 |ls()\x=.|.(280)+1|
|00000220| 30 2c bc 07 28 31 36 30 | 29 2b 31 30 2c 28 bc 07 |0,..(160|)+10,(..|
|00000230| 2d 2e 35 29 2a 38 2c 28 | bc 07 2d 2e 35 29 2a 38 |-.5)*8,(|..-.5)*8|
|00000240| 00 80 c1 00 00 3b 6e 6f | 77 2c 20 77 65 20 67 6f |.....;no|w, we go|
|00000250| 20 69 6e 74 6f 20 62 6c | 69 74 7a 20 6d 6f 64 65 | into bl|itz mode|
|00000260| 00 3b 00 80 34 00 00 3b | 69 6e 69 74 69 61 6c 69 |.;..4..;|initiali|
|00000270| 7a 65 20 61 20 27 71 75 | 65 75 65 27 20 66 6f 72 |ze a 'qu|eue' for|
|00000280| 20 74 68 65 20 71 62 6c | 69 74 20 63 6f 6d 6d 61 | the qbl|it comma|
|00000290| 6e 64 20 74 6f 20 6d 61 | 6b 65 20 75 73 65 20 6f |nd to ma|ke use o|
|000002a0| 66 3a 00 3b 00 3b 74 68 | 65 20 27 35 30 27 20 68 |f:.;.;th|e '50' h|
|000002b0| 65 72 65 20 6d 65 61 6e | 73 20 74 68 65 20 71 75 |ere mean|s the qu|
|000002c0| 65 75 65 20 63 61 6e 20 | 68 61 6e 64 6c 65 20 75 |eue can |handle u|
|000002d0| 70 20 74 6f 20 35 30 20 | 27 51 42 6c 69 74 73 27 |p to 50 |'QBlits'|
|000002e0| 00 3b 62 65 66 6f 72 65 | 20 61 6e 20 27 55 6e 51 |.;before| an 'UnQ|
|000002f0| 75 65 75 65 27 20 69 73 | 20 6e 65 63 65 73 73 61 |ueue' is| necessa|
|00000300| 72 79 2e 00 3b 00 ca 01 | 20 30 2c 35 30 00 00 3b |ry..;...| 0,50..;|
|00000310| 69 6e 69 74 69 61 6c 69 | 7a 65 20 61 20 6c 6f 72 |initiali|ze a lor|
|00000320| 2d 72 65 73 2c 20 38 20 | 63 6f 6c 6f 75 72 20 62 |-res, 8 |colour b|
|00000330| 69 74 6d 61 70 2e 2e 2e | 00 3b 00 d0 01 20 30 2c |itmap...|.;... 0,|
|00000340| 33 32 30 2c 32 30 30 2c | 33 00 00 3b 69 6e 69 74 |320,200,|3..;init|
|00000350| 69 61 6c 69 7a 65 20 61 | 20 73 6c 69 63 65 2c 20 |ialize a| slice, |
|00000360| 61 6e 64 20 73 65 74 20 | 69 74 27 73 20 63 6f 6c |and set |it's col|
|00000370| 6f 75 72 20 70 61 6c 65 | 74 74 65 00 3b 00 c8 01 |our pale|tte.;...|
|00000380| 20 30 2c 34 34 2c 33 32 | 30 2c 32 30 30 2c 24 66 | 0,44,32|0,200,$f|
|00000390| 66 66 30 2c 33 2c 38 2c | 33 32 2c 33 32 30 2c 33 |ff0,3,8,|32,320,3|
|000003a0| 32 30 00 80 2c 20 ce 09 | 20 30 00 c8 04 20 30 00 |20.., ..| 0... 0.|
|000003b0| 00 3b 6e 6f 77 2c 20 70 | 72 6f 63 65 73 73 20 61 |.;now, p|rocess a|
|000003c0| 6c 6c 20 62 61 6c 6c 73 | 73 2e 2e 2e 00 3b 00 3b |ll balls|s....;.;|
|000003d0| 77 68 69 6c 65 20 6d 6f | 75 73 65 20 62 75 74 74 |while mo|use butt|
|000003e0| 6f 6e 20 6e 6f 74 20 68 | 69 74 2e 2e 00 3b 00 80 |on not h|it...;..|
|000003f0| 0c 20 df 04 28 30 29 3d | 30 00 00 20 20 3b 73 74 |. ..(0)=|0..  ;st|
|00000400| 61 72 74 20 61 74 20 66 | 69 72 73 74 20 69 74 65 |art at f|irst ite|
|00000410| 6d 20 69 6e 20 6c 69 73 | 74 00 20 20 3b 00 20 20 |m in lis|t.  ;.  |
|00000420| c0 04 20 62 61 6c 6c 73 | 28 29 00 00 20 20 3b 77 |.. balls|()..  ;w|
|00000430| 61 69 74 20 66 6f 72 20 | 76 65 72 74 69 63 61 6c |ait for |vertical|
|00000440| 20 62 6c 61 6e 6b 00 20 | 20 3b 00 20 20 80 37 00 | blank. | ;.  .7.|
|00000450| 00 20 20 3b 75 6e 71 75 | 65 75 65 20 61 6c 6c 20 |.  ;unqu|eue all |
|00000460| 70 72 65 76 69 6f 75 73 | 6c 79 20 64 72 61 77 6e |previous|ly drawn|
|00000470| 20 73 68 61 70 65 73 00 | 20 20 3b 00 20 20 ca 03 | shapes.|  ;.  ..|
|00000480| 20 30 00 00 20 20 3b 77 | 68 69 6c 65 20 6d 6f 72 | 0..  ;w|hile mor|
|00000490| 65 20 69 74 65 6d 73 20 | 74 6f 20 63 6f 6d 65 2e |e items |to come.|
|000004a0| 2e 2e 00 20 20 3b 00 20 | 20 80 0c 20 c0 03 28 62 |...  ;. | .. ..(b|
|000004b0| 61 6c 6c 73 28 29 29 00 | 00 20 20 20 20 3b 75 70 |alls()).|.    ;up|
|000004c0| 64 61 74 65 20 62 61 6c | 6c 73 27 20 70 6f 73 69 |date bal|ls' posi|
|000004d0| 74 69 6f 6e 00 20 20 20 | 20 3b 00 20 20 20 20 62 |tion.   | ;.    b|
|000004e0| 61 6c 6c 73 28 29 5c 78 | 2b 62 61 6c 6c 73 28 29 |alls()\x|+balls()|
|000004f0| 5c 78 73 00 20 20 20 20 | 62 61 6c 6c 73 28 29 5c |\xs.    |balls()\|
|00000500| 79 2b 62 61 6c 6c 73 28 | 29 5c 79 73 00 00 20 20 |y+balls(|)\ys..  |
|00000510| 20 20 3b 72 65 76 65 72 | 73 65 20 64 69 72 65 63 |  ;rever|se direc|
|00000520| 74 69 6f 6e 20 69 66 20 | 62 61 6c 6c 20 67 65 74 |tion if |ball get|
|00000530| 73 20 74 6f 20 65 64 67 | 65 20 6f 66 20 62 69 74 |s to edg|e of bit|
|00000540| 6d 61 70 00 20 20 20 20 | 3b 00 20 20 20 20 80 0b |map.    |;.    ..|
|00000550| 20 62 61 6c 6c 73 28 29 | 5c 78 3c 31 30 20 80 8a | balls()|\x<10 ..|
|00000560| 20 62 61 6c 6c 73 28 29 | 5c 78 3e 32 39 30 20 80 | balls()|\x>290 .|
|00000570| 21 20 62 61 6c 6c 73 28 | 29 5c 78 73 3d 2d 62 61 |! balls(|)\xs=-ba|
|00000580| 6c 6c 73 28 29 5c 78 73 | 00 20 20 20 20 80 0b 20 |lls()\xs|.    .. |
|00000590| 62 61 6c 6c 73 28 29 5c | 79 3c 31 30 20 80 8a 20 |balls()\|y<10 .. |
|000005a0| 62 61 6c 6c 73 28 29 5c | 79 3e 31 37 30 20 80 21 |balls()\|y>170 .!|
|000005b0| 20 62 61 6c 6c 73 28 29 | 5c 79 73 3d 2d 62 61 6c | balls()|\ys=-bal|
|000005c0| 6c 73 28 29 5c 79 73 00 | 00 20 20 20 20 3b 64 72 |ls()\ys.|.    ;dr|
|000005d0| 61 77 20 62 61 6c 6c 73 | 20 69 6e 20 6e 65 77 20 |aw balls| in new |
|000005e0| 70 6f 73 69 74 69 6f 6e | 00 20 20 20 20 3b 00 20 |position|.    ;. |
|000005f0| 20 20 20 ca 02 20 30 2c | 30 2c 62 61 6c 6c 73 28 |   .. 0,|0,balls(|
|00000600| 29 5c 78 2c 62 61 6c 6c | 73 28 29 5c 79 00 00 20 |)\x,ball|s()\y.. |
|00000610| 20 80 c1 00 80 c1 00 00 |                         | .......|        |
+--------+-------------------------+-------------------------+--------+--------+